home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Lib / socket.stk < prev    next >
Encoding:
Text File  |  1996-07-22  |  1.1 KB  |  31 lines
  1. ;;;;
  2. ;;;; s o c k e t . s t k         -- Socket module initialisation
  3. ;;;;
  4. ;;;;
  5. ;;;; Copyright ⌐ 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
  6. ;;;; 
  7. ;;;; Permission to use, copy, and/or distribute this software and its
  8. ;;;; documentation for any purpose and without fee is hereby granted, provided
  9. ;;;; that both the above copyright notice and this permission notice appear in
  10. ;;;; all copies and derived works.  Fees for distribution or use of this
  11. ;;;; software or derived works may only be charged with express written
  12. ;;;; permission of the copyright holder.  
  13. ;;;; This software is provided ``as is'' without express or implied warranty.
  14. ;;;;
  15. ;;;;
  16. ;;;;           Author: Erick Gallesio [eg@unice.fr]
  17. ;;;;    Creation date:  3-Feb-1995 23:59
  18. ;;;; Last file update: 22-Jul-1996 19:01
  19. ;;;;
  20.  
  21. (if (symbol-bound? '%init-socket)
  22.     ;; Soket module is in the core interpreter
  23.     (%init-socket)
  24.     ;; Try to load hash table dynamically
  25.     (load (string-append "socket." *shared-suffix*)))
  26.  
  27. ;; For backward compatibility
  28. (define socket-hostname socket-host-name)
  29.  
  30. (provide "socket")
  31.